home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 187 / 187.d81 / b.book print (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  75 lines
  1. 10 dv=peek(186)
  2. 20 poke53281,0:poke53280,0:poke53371,0
  3. 22 sys57812"instr 828",dv,0:poke780,0:poke781,60:poke782,3:sys65493
  4. 30 print"[147][129]     [203][206][197][197][211] [195][193][204][200][207][207][206]'[211] [194][207][207][203][208][210][201][206][212] 1999[159]"
  5. 34 in=828:dv=peek(186)
  6. 40 m$(1)="[212][201][212][204][197]
  7. 50 m$(2)[178]"atn(NULL)(NULL)left$(NULL)(NULL)
  8. 60 m$(3)="[196][193][212][197]
  9. 70 w[178]1:w$[178][196](w)
  10. 80 p$[178]".................................."
  11. 90 s$[178]"       "
  12. 100 :
  13. 110 :[143] menu
  14. 120 :
  15. 130 [129]i[178]1[164]3:[153][163]3)""i"cont"m$(i):[153]:[130]
  16. 140 [161]a$
  17. 150 [139]a$[179]"1"[176]a$[177]"3"[167]140
  18. 160 m[178][197](a$)
  19. 170 [151]214,m[172]2[170]3:[153]"":[153][163]13)": ";
  20. 180 l9%[178]20:[141]50000:h$[178]q9$
  21. 192 [151]214,14:[153]:[153][163]5)"open(NULL)earched:"[163]23)"open(NULL)atches:"
  22. 200 [159]4,4,7
  23. 207 :
  24. 208 :[143] loop
  25. 209 :
  26. 210 [159]2,dv,2,"books 1999"[170]",p,r"
  27. 220 [132]2,t$(1):[139]st[167]400
  28. 240 [139][200](t$(1),1)[178]"*"[167]y$[178][201](t$(1),2):[137]220
  29. 244 t$(2)[178]"":[132]2,t$(2):t$(3)[178]"":[132]2,t$(3):t$(3)[178]y$[170]"-"[170]t$(3)
  30. 250 [158]in,h$,t$(m)
  31. 260 [139][194](251)[167][141]300
  32. 270 w[178]w[170]1:w$[178][196](w)
  33. 280 [151]214,15:[151]211,14:[158]58732:[153]w[163]31)nm
  34. 290 [137]220
  35. 297 :
  36. 298 :[143] print line
  37. 299 :
  38. 300 [139][195](t$(1))[177]36[167]t$(1)[178][200](t$(1),36)
  39. 302 [139][195](t$(2))[177]26[167]t$(2)[178][200](t$(2),26)
  40. 306 [152]4,w$"."[200](s$,6[171][195](w$))t$(1);
  41. 308 [152]4,[200](p$,37[171][195](t$(1)))t$(2);
  42. 310 [152]4,[200](p$,27[171][195](t$(2)))[202](t$(3),4);"-";[200](t$(3),2)
  43. 320 nm[178]nm[170]1
  44. 330 [142]
  45. 397 :
  46. 398 :[143] new file
  47. 399 :
  48. 400 [160]2
  49. 410 [139]nm[167][152]4,[199](13)
  50. 420 [160]4:[151]186,dv
  51. 430 [151]214,20:[153]:[153]"        1cont - (NULL)ore      2cont - (NULL)uit"
  52. 440 [161]a$:[139]a$[179]"1"[176]a$[177]"2"[167]440
  53. 450 [139]a$[178]"1"[167][138]30
  54. 460 [137]40000
  55. 10000 d[178][194](186):n$[178]"0:b.book print":[159]15,d,15,"s"[170]n$:[160]15:[148]n$,d:[128]
  56. 40000 [129]i[178]8[164]29:[151]820[170]i,i:[130]:[139]dv[177]8[175]dv[179]30[167][151]828,dv:[151]820[170]dv,8
  57. 40010 a$[178]"presenter":[141]40030:a$[178]"hello connect":[141]40030
  58. 40020 [153]"load":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
  59. 40030 [129]j[178]8[164]29:i[178][194](820[170]j):[139]i[178]14[167][130]
  60. 40040 [160]2:[159]2,i,2:[160]2:[139]st[167]40060
  61. 40050 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40070
  62. 40060 [130]:[142]
  63. 40070 a$[178]"hello connect":q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
  64. 40080 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
  65. 40090 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
  66. 50000 q9$[178]"":u9[178]53280:[151]198,0
  67. 50010 [161]a$
  68. 50020 [151]646,[187](1)[172]15[170]1:[153]"tocmd";:[139]a$[178]""[167]50010
  69. 50030 [139]a$[178][199](13)[167][153]" ":[142]
  70. 50040 [139](a$[178][199](20)[175][195](q9$))[167]q9$[178][200](q9$,[195](q9$)[171]1):[137]50080
  71. 50050 [139][195](q9$)[177][178]l9%[167]t9%[178][194](u9):[151]u9,1:[151]u9,t9%:[137]50010
  72. 50060 [139]a$[179]" "[176](a$[177][199](127)[175]a$[179][199](160))[176]a$[178][199](34)[167]50010
  73. 50070 q9$[178]q9$[170]a$
  74. 50080 [153]"list"a$;:[137]50010
  75.